home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / 16VAMP79.ZIP / CLONES / WREMOTE.INI < prev   
INI File  |  1997-02-27  |  36KB  |  622 lines

  1. [Users]
  2. n0=;# # Vampear WarBot v0.79+ # #
  3. n1=;#
  4. n2=;# User Level:
  5. n3=;# 100 - GOD (YOU)
  6. n4=;#   75 - Master
  7. n5=;#   50 - Op
  8. n6=;#   40 - DccBot (+v)
  9. n7=;#   25 - Party Line
  10. n8=;#   15 - Bot
  11. n9=;# 888 - AutoDeop
  12. n10=;# 999 - Shitlist
  13. n11=;# - - - - - - - - - - - - - - - - - -
  14. n12=100:*!*Vampear@localhost
  15. n13=100:*!*Warter@localhost
  16. n14=100:*!*mirc@*.dial.bme.hu
  17. n15=75:*!*mirc@145.236.229.*
  18. n16=100:*!*Warter@127.0.0.*
  19. n17=100:*!*Vampear@127.0.0.*
  20.  
  21. [Variables]
  22. n0=%ver [Vampear WarBot v0.79+]
  23. n1=%path c:\vampear\
  24. n2=%servermodes ON
  25. n3=%fprot OFF
  26. n4=%autoop ON
  27. n5=%kob ON
  28. n6=%prot OFF
  29. n7=%greet ON
  30. n8=%info ON
  31. n9=%seen ON
  32. n10=%8ball ON
  33. n11=%wall ON
  34. n12=%bitch OFF
  35. n13=%massjoin ON
  36. n14=%nickf ON
  37. n15=%invitef ON
  38. n16=%msgflood ON
  39. n17=%textf ON
  40. n18=%swear OFF
  41. n19=%hours 0
  42. n20=%minutes 5
  43. n21=%seconds 0
  44. n22=%cdban off
  45. n23=%pass vampear
  46. n24=%schan 1
  47. n25=%k 1
  48. n26=%nick *!*Warter@127.0.0.1
  49. n27=%text vampear
  50. n28=%address *!*Warter@127.0.0.1
  51. n29=%add Warter@127.0.0.1
  52. n30=%wnick *!*Vampear@127.0.0.1
  53. n31=%rmjoin *!*@127.0.0.1
  54. n32=%switch OFF
  55. n33=%j 0
  56. n34=%fhelp pgod
  57. n35=%cnick *!*Warter@127.0.0.1
  58. n36=%cchatnum 1
  59. n37=%ci 2
  60. n38=%cchat Warter
  61. n39=%flag g
  62. n40=%color ON
  63. n41=%ignoreall OFF
  64. n42=%away no
  65. n43=%success success
  66. n44=%tnick Warter
  67. n45=%cpass vampear
  68. n46=%knote c:\vampear\notes\Warter.txt
  69. n47=%note 1
  70. n48=%chatnum 1
  71. n49=%i 2
  72. n50=%chat Warter
  73.  
  74. [Commands]
  75. n0=1:a:notice $nick [Vampear] WSIrc Nuke Detected. Auto ignored for 30 Seconds. You had your fun, now go away! | /ignore -tau30 $nick 2
  76. n1=1:on ctcpreply:ping* {
  77. n2=  if ($parm2 == $null) echo [ $+ $nick PING reply]
  78. n3=  else {
  79. n4=    %pt = $ctime - $parm2
  80. n5=    if (%pt < 0) set %pt 0
  81. n6=    echo [ $+ $nick PING reply] %pt seconds
  82. n7=  }
  83. n8=  halt
  84. n9=}
  85. n10=1:dcc chat: {
  86. n11=  if ( $nick != $me ) {
  87. n12=    sflag | if ( %flag = $null ) { notice $nick Error: You do not have access! | $nick Type "/ctcp $me WHY" for reasons why this error occured | unset %flag | halt }
  88. n13=    spass | if ( %pass = $null || %pass = none ) { notice $nick You do not have a password set | unset %pass | halt }
  89. n14=  }
  90. n15=}
  91. n16=1:help:notice $nick You need a LOT of help, you're right , 1-800-GET-HELP is the #!!!  | /ignore -tau30 $nick 2
  92. n17=1:why:why | ignore -tnu60 $nick 2
  93. n18=25:help:if ( $parm2 = $null ) { play -tmparty $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  94. n19=25:server:checkpass | if ( %success = success ) { fserve $nick 3 %path $+ shit\ %path $+ welcome.txt }
  95. n20=25:info:checkpass | if ( %success = success ) { info }
  96. n21=25:email:checkpass | if ( %success = success ) { email }
  97. n22=25:newpass:newpass
  98. n23=25:pass:pass
  99. n24=25:ident:ident
  100. n25=25:seen:seen
  101. n26=25:notes read:nread
  102. n27=25:notes erase:nerase
  103. n28=25:note:checkpass | if ( %success = success ) { note }
  104. n29=50:help:if ( $parm2 = $null ) { play -tmop $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  105. n30=50:op:checkpass | if ( %success = success && $me isop $parm3 ) { mode $parm3 +o $parm4 }
  106. n31=50:unban:checkpass | if ( %success = success && $me isop $parm3 ) { mode $parm3 -b $parm3 }
  107. n32=50:invite:checkpass | if ( %success = success && $me isop $parm3 ) { .notice $me I am inviting $nick to $parm3 | /invite $nick $parm3 }
  108. n33=75:msg:checkpass | if ( %success = success ) { msg $parm3 $parm4* }
  109. n34=75:say:checkpass | if ( %success = success && $me ison $parm3 ) { msg $parm3 $parm4* }
  110. n35=75:join:checkpass | if ( %success = success ) { join $parm3 | /notice $nick I have joined channel $parm3 }
  111. n36=75:leave:checkpass | if ( %success = success ) { part $parm3 | /notice $nick I have left channel $parm3 }
  112. n37=75:deop:checkpass | if ( %success = success && $me isop $parm3 && $parm4 !== $me ) { mode $parm3 -o $parm4 }
  113. n38=75:kick:checkpass | if ( %success = success && $me isop $parm3 && $parm4 !== $me ) { kick $parm3 $parm4 Requested by $nick - $parm5* } 
  114. n39=75:bkick:checkpass | if ( %success = success && $me isop $parm3 && $parm4 !== $me ) { ban $parm3 $parm4 3 | kick $parm3 $parm4 Requested by $nick - $parm5* }
  115. n40=75:ban:checkpass | if ( %success = success && $me isop $parm3 && $parm4 !== $me ) { ban $parm3 $parm4 3 }
  116. n41=75:help:if ( $parm2 = $null ) { play -tmmaster $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  117. n42=100:help:if ( $parm2 = $null ) { play -tmgod $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  118. n43=100:do:checkpass | if ( %success = success ) { $parms }
  119. n44=100:die:checkpass | if ( %success = success ) { quit }
  120. n45=888:*:notice $nick Shitlisted mean ANYTHING to you??????????? | /ignore -tau30 $nick 2
  121. n46=999:*:notice $nick Shitlisted mean ANYTHING to you??????????? | /ignore -tau30 $nick 2
  122. n47=1:*:{ if ( $parm1 == version ) { raw -q notice $nick :VERSION %ver $+  } | inc %ctcps | .timer500 1 10 unset %ctcps | if (%ctcps > 2) { ignore -tu15 * | ignore -tu30 $nick 2 | if ( $parm2 == $null ) { echo 6 FLOOD PROTECTION: Received a $upper($parm1) Flood  from $nick ( $+ $address $+ ) } | else { echo 6 FLOOD PROTECTION: Received a $upper($parm1) $upper($parm2) Flood  from $nick ( $+ $address $+ ) } | halt } }
  123.  
  124. [Events]
  125. n0=25:ON TEXT:help*:?:if ( $parm2 = $null ) { play -tmparty $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  126. n1=25:ON TEXT:server *:?:checkpass | if ( %success = success ) { fserve $nick 3 %path $+ shit\ %path $+ welcome.txt }
  127. n2=25:ON TEXT:info *:?:checkpass | if  ( %success = success ) { info }
  128. n3=25:ON TEXT:email *:?:checkpass | if  ( %success = success ) { email }
  129. n4=25:ON TEXT:newpass *:?:newpass
  130. n5=25:ON TEXT:pass *:?:pass
  131. n6=25:ON TEXT:ident *:?:ident
  132. n7=25:ON TEXT:seen*:?:seen
  133. n8=25:ON TEXT:notes read *:?:nread
  134. n9=25:ON TEXT:notes erase *:?:nerase
  135. n10=25:ON TEXT:note *:?:checkpass | if ( %success = success ) { note }
  136. n11=50:ON TEXT:help*:?:if ( $parm2 = $null ) { play -tmop $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  137. n12=50:ON TEXT:op *:?:checkpass | if ( %success = success && $me isop $parm3 ) { mode $parm3 +o $parm4 }
  138. n13=50:ON TEXT:unban *:?:checkpass | if ( %success = success && $me isop $parm3 ) { mode $parm3 -b $parm4 }
  139. n14=50:ON TEXT:invite *:?:checkpass | if ( %success = success && $me isop $parm3 ) { msg $me I am inviting $nick to $parm3 | invite $nick $parm3 }
  140. n15=75:ON TEXT:msg *:?:checkpass | if ( %success = success ) {  msg $parm3 $parm4* }
  141. n16=75:ON TEXT:say *:?:checkpass | if ( %success = success && $me ison $parm3 ) { msg $parm3 $parm4* }
  142. n17=75:ON TEXT:join *:?:checkpass | if ( %success = success ) { join $parm3 | notice $nick I have joined channel $parm3 }
  143. n18=75:ON TEXT:leave *:?:checkpass | if ( %success = success ) { part $parm3 | notice $nick I have left channel $parm3 }
  144. n19=75:ON TEXT:deop *:?:checkpass | if ( %success = success && $me isop $parm3 && $parm4 != $me ) { mode $parm3 -o $parm4 }
  145. n20=75:ON TEXT:kick *:?:checkpass | if ( %success = success && $me isop $parm3 && $parm4 != $me ) { kick $parm3 $parm4 Requested by $nick - $parm5* }
  146. n21=75:ON TEXT:bkick *:?:checkpass | if ( %success = success && $me isop $parm3 && $parm4 !== $me ) { ban $parm3 $parm4 3 | kick $parm3 $parm4 Requested by $nick - $parm5* }
  147. n22=75:ON TEXT:ban *:?:checkpass | if ( %success = success && $me isop $parm3 && $parm4 !== $me ) { ban $parm3 $parm4 3 }
  148. n23=75:ON TEXT:help*:?:if ( $parm2 = $null ) { play -tmmaster $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  149. n24=100:ON TEXT:die *:?:checkpass | if ( %success = success ) { die }
  150. n25=100:ON TEXT:help:?:if ( $parm2 = $null ) { play -tmgod $nick $mircdir $+ clones\help.msg | halt } | else { play -t $+ $parm2 $nick $mircdir $+ clones\help.msg }
  151. n26=888:ON TEXT:help:?:notice $nick Please leave me alone. I can't help you....you're shitlisted !! | ignore -tnpu30 $nick 2 
  152. n27=*1:ON JOIN:#:{
  153. n28=  %nick = $address($nick,1)
  154. n29=  %rmjoin = $address($me,2)
  155. n30=  if (( %autoop = ON ) && ($level(%nick) >= 50) && ($level(%nick) <= 100)) { mode $chan +o $nick }
  156. n31=  if ( $level(%nick) = 999 ) { ban $chan $nick 3 | kick $chan $nick [Vampear] PermBan! }
  157. n32=  if ( %greet = ON ) { notice $nick Hi $nick, welcome to $chan $+ !!! }
  158. n33=  if ( %info = ON ) { set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5)) | set %cinfo $readini %path $+ clones\wpass.ini %tnick info | if ( %cinfo != $null && %cinfo != none ) { iinfo } | unset %ichan %tnick %cinfo }
  159. n34=  if ( $level(%nick) == 40 ) { mode $chan +v $nick }
  160. n35=  if (( %massjoin = ON ) && ( $site != $remove(%rmjoin,*!*@))) { 
  161. n36=    if ( %mjoin [ $+ [ $site ] ] == $null) { set %mjoin $+ $site 1 | .timer 1 30 unset %mjoin $+ $site }
  162. n37=    if ( %mjoin [ $+ [ $site ] ] > 4) { ban -u90 $chan $nick 2 | set %kobmask $banmask | set %chanban $chan | kob | unset %mjoin $+ $site | halt }
  163. n38=    inc %mjoin $+ $site 1 
  164. n39=  }
  165. n40=}
  166. n41=*@1:ON OP:#: { 
  167. n42=  %nick = $address($opnick,1)
  168. n43=  if ( $level(%nick) = 888 ) { mode $chan -o $opnick }
  169. n44=  if (( %bitch =  ON ) && ($level(%nick) < 50) && ($level(%nick) > 100)) { mode $chan -o $opnick  | notice $opnick You are not an op here. }
  170. n45=}
  171. n46=*@1:ON DEOP:#:{
  172. n47=  %nick = $address($opnick,1)
  173. n48=  %wnick = $address($nick,1)
  174. n49=  if (( %fprot =  Premium ) && ($level(%nick) >= 50) && ($level(%nick) <= 100) && ($level(%nick)  > $level(%wnick))) { mode $chan -o+o $nick $opnick }
  175. n50=  if (( %fprot =  Regular ) && ($level(%nick) >= 50) && ($level(%nick) <= 100) && ($level(%nick)  > $level(%wnick))) { mode $chan +o $opnick }
  176. n51=  if ( %mdeop [ $+ [ $nick ] ] == $null) { set %mdeop $+ $nick 1 | .timer 1 10 unset %mdeop $+ $nick }
  177. n52=  if ( %mdeop [ $+ [ $nick ] ] > 3) { if (($level(%wnick) != 100) && ( $nick != $me )) { kick $chan $nick [Vampear] Mass Deop Detected! } | unset %mdeop $+ $nick | halt }
  178. n53=  inc %mdeop $+ $nick 1  
  179. n54=}
  180. n55=*@1:ON KICK:#:{
  181. n56=  %nick = $address($opnick,1)
  182. n57=  %wnick = $address($nick,1)
  183. n58=  if (( %fprot =  Premium ) && ($level(%nick) >= 50) && ($level(%nick) <= 100) && ($level(%nick)  > $level(%wnick))) { mode $chan -o $nick | /invite $knick $chan }
  184. n59=  if ( %mkick [ $+ [ $nick ] ] == $null) { set %mkick $+ $nick 1 | .timer 1 10 unset %mkick $+ $nick }
  185. n60=  if ( %mkick [ $+ [ $nick ] ] > 3) { if (($level(%wnick) != 100) && ( $nick != $me )) { kick $chan $nick [Vampear] Mass Kick Detected! } | unset %mkick $+ $nick | halt }
  186. n61=  inc %mkick $+ $nick 1  
  187. n62=}
  188. n63=*@1:ON BAN:#:{
  189. n64=  %wnick = $address($nick,1)
  190. n65=  if (( $nick != $me ) && ( [ $banmask ] iswm [ $address($me,5) ] )) { mode $chan -b $banmask | kick $chan $nick [Vampear] Personal Ban Protection! | halt }
  191. n66=  if (( %fprot =  Premium ) && ($level($banmask) >= 50) && ($level($banmask) <= 100) && ($level($banmask)  > $level(%wnick))) { mode $chan -o $nick | mode $chan -b $banmask }
  192. n67=  if (( %fprot =  Regular ) && ($level($banmask) >= 50) && ($level($banmask) <= 100) && ($level($banmask)  > $level(%wnick))) { mode $chan -b $banmask }
  193. n68=  if (( %kob =  ON ) && ($level($banmask) < 50) || ($level($banmask) > 100)) { set %kobmask $banmask | set %chanban $chan | kob }
  194. n69=  if ( %mban [ $+ [ $nick ] ] == $null) { set %mban $+ $nick 1 | .timer 1 10 unset %mban $+ $nick }
  195. n70=  if ( %mban [ $+ [ $nick ] ] > 3) { if (($level(%wnick) != 100) && ( $nick != $me )) { kick $chan $nick [Vampear] Mass Ban Detected! } | unset %mban $+ $nick | halt }
  196. n71=  inc %mban $+ $nick 1  
  197. n72=}
  198. n73=*@1:ON UNBAN:#:{ 
  199. n74=  %wnick = $address($nick,1)
  200. n75=  if (( $nick != $me ) && ($level(%wnick) != 100) && ( $level($banmask) = 999 )) { mode $chan +b $banmask }
  201. n76=}
  202. n77=@40:ON DEVOICE:#:mode $chan +v $vnick
  203. n78=#servermodes disable
  204. n79=*@1:ON SERVEROP:#: { 
  205. n80=  %nick = $address($opnick,1)
  206. n81=  if (($level(%nick) >= 50) && ($level(%nick) <= 100)) { mode $chan +o $opnick }
  207. n82=  else { mode $chan -o $opnick }
  208. n83=}
  209. n84=*@1:ON SERVERBAN:#:{
  210. n85=  %wnick = $address($nick,1)
  211. n86=  if (($level($banmask) >= 1) && ($level($banmask) <= 100) && ($level($banmask)  > $level(%wnick))) { mode $chan -b $banmask | halt }
  212. n87=}
  213. n88=@1:ON SERVERMODE:#:mode $chan %modenf $chan($chan).key
  214. n89=#servermodes end
  215. n90=#prot disabled
  216. n91=1:ON TOPIC:#:/topic $chan %deftopic
  217. n92=1:ON MODE:#:mode $chan %modenf $chan($chan).key
  218. n93=#prot end
  219. n94=#SWEAR disabled
  220. n95=+@1!:ON TEXT:*fuck*:#:kick $chan $nick [Vampear] Watch yer language.
  221. n96=+@1!:ON TEXT:*shit*:#:kick $chan $nick [Vampear] Watch yer language.
  222. n97=+@1!:ON TEXT:*ass*:#:kick $chan $nick [Vampear] Watch yer language.
  223. n98=+@1!:ON TEXT:*dick*:#:kick $chan $nick [Vampear] Watch yer language.
  224. n99=+@1!:ON TEXT:*pussy*:#:kick $chan $nick [Vampear] Watch yer language.
  225. n100=+@1!:ON TEXT:*bitch*:#:kick $chan $nick [Vampear] Watch yer language.
  226. n101=+@1!:ON TEXT:*cunt*:#:kick $chan $nick [Vampear] Watch yer language.
  227. n102=+@1!:ON TEXT:*nigger*:#:kick $chan $nick [Vampear] Watch yer language.
  228. n103=+@1!:ACTION:*fuck*:#:kick $chan $nick [Vampear] Watch yer language.
  229. n104=+@1!:ACTION:*shit*:#:kick $chan $nick [Vampear] Watch yer language.
  230. n105=+@1!:ACTION:*ass*:#:kick $chan $nick [Vampear] Watch yer language.
  231. n106=+@1!:ACTION:*dick*:#:kick $chan $nick [Vampear] Watch yer language.
  232. n107=+@1!:ACTION:*pussy*:#:kick $chan $nick [Vampear] Watch yer language.
  233. n108=+@1!:ACTION:*bitch*:#:kick $chan $nick [Vampear] Watch yer language.
  234. n109=+@1!:ACTION:*cunt*:#:kick $chan $nick [Vampear] Watch yer language.
  235. n110=#SWEAR end
  236. n111=#color disabled
  237. n112=+@1:ON TEXT:***:#:kick $chan $nick [Vampear] Color-Kick
  238. n113=#color end
  239. n114=#8ball start
  240. n115=1:ON TEXT:*why*:#:/msg $chan $nick: $read [ %path $+ text\8why.txt ]
  241. n116=1:ON TEXT:*when*:#:/msg $chan $nick: $read [ %path $+ text\8when.txt ]
  242. n117=1:ON TEXT:*where*:#:/msg $chan $nick: $read [ %path $+ text\8where.txt ]
  243. n118=1:ON TEXT:*vamp*:#:/msg $chan $nick: $read [ %path $+ text\8else.txt ]
  244. n119=#8ball end
  245. n120=#Wall start
  246. n121=25:ON TEXT:!write*:*:/write $mircdir $+  text\wall.txt $fulldate $nick $+ ( $+  $address $+ ) Wrote: $parm2*
  247. n122=25:ON TEXT:!read*:*:/play $nick $mircdir $+ text\wall.txt 500
  248. n123=25:ON TEXT:!wallhelp:*:/msg $nick Graffitti wall is a program included on the [Vampear] script, to operate it,  type the following /msg $me !write "your message" or type !write on my channel "your message" . To see the wall, type /msg $me !read  or type !read on my channel.
  249. n124=#wall end
  250. n125=#Seen start
  251. n126=1:ON PART:#:/write -ds $+ $nick $mircdir $+ clones\seen.txt | /write -l $mircdir $+ clones\seen.txt  $nick $nick ( $+ $address $+ )  was last seen on $fulldate $+ . 
  252. n127=1:ON QUIT:/write -ds $+ $nick $mircdir $+ clones\seen.txt | /write -l $mircdir $+ clones\seen.txt $nick $nick ( $+ $address $+ ) was last seen on $fulldate $+ . 
  253. n128=1:ON KICK:/write -ds $+ $nick $mircdir $+ clones\seen.txt | /write -l $mircdir $+ clones\seen.txt $nick $nick ( $+ $address $+ ) was last seen on $fulldate $+ . 
  254. n129=#Seen End
  255. n130=25:ON TEXT:!time*:#:/notice $nick The current time is $time
  256. n131=25:ON TEXT:!date*:#:/notice $nick $date
  257. n132=25:ON TEXT:!help*:#:/notice $nick !time !date !seen !wallhelp
  258. n133=25:ON TEXT:!seen*:#:{ 
  259. n134=  set %seen $read -s $+ $parm2 $mircdir $+ clones\seen.txt
  260. n135=  if ( $parm2 == $nick ) { notice $chan $nick: Trying to find yourself, eh? | halt }
  261. n136=  if ( $parm2 == $me ) { notice $chan $nick: Yeah, whenever I look in a mirror... | halt }
  262. n137=  if ([ $parm2 ] ison [ $chan ]) { notice $chan $nick: $parm2 is on $chan right now! | halt }
  263. n138=  if ( %seen !== $null) { notice $chan $nick: %seen }
  264. n139=}
  265. n140=50:ON TEXT:!op *:#:if ( $me isop $chan ) { mode $chan +o $parm2 }
  266. n141=50:ON TEXT:!topic *:#:/topic $chan $parm2*
  267. n142=50:ON TEXT:!invite *:#:if ( $me isop $chan ) { invite $chan $parm2 }
  268. n143=50:ON TEXT:!help:#:/notice $nick !time !date !seen !wallhelp !op !topic !msg !say !invite
  269. n144=75:ON TEXT:!say *:#:if ( $me ison $chan ) { msg $parm2 $parm3* }
  270. n145=75:ON TEXT:!msg *:#:/msg $parm2 $parm3*
  271. n146=75:ON TEXT:!deop *:#:if (  $parm2 !== $me && $me isop $chan  ) { mode $chan -o $parm2 }
  272. n147=75:ON TEXT:!kick *:#:if (  $parm2 !== $me && $me isop $chan ) { kick $chan $parm2 $parm3 }
  273. n148=75:ON TEXT:!join *:#:/join $parm2
  274. n149=75:ON TEXT:!leave *:#:/part $parm2
  275. n150=75:ON TEXT:!ban *:#:if (  $parm2 !== $me && $me isop $chan ) { ban $chan $parm2 3 }
  276. n151=75:ON TEXT:!bkick *:#:if (  $parm2 !== $me && $me isop $chan ) { ban $chan $parm2 3 } | if ( $parm2 !== $me && $me isop $chan ) { kick $chan $parm2 $parm3 } | unset %flag
  277. n152=75:ON TEXT:!help:#:/notice $nick !time !date !seen !wallhelp !op !topic !msg !say !invite !deop !kick !join !leave !ban !bkick
  278. n153=*1:ON INVITE:*:{
  279. n154=  if (( %invitef =  ON ) && ( $nick != $me )) {
  280. n155=    if ( %minvite [ $+ [ $nick ] ] == $null) { set %minvite $+ $nick 1 | .timer 1 10 unset %minvite $+ $nick }
  281. n156=    if ( %minvite [ $+ [ $nick ] ] > 2) { ignore -iau30 $nick 3 | kick $active $nick [Vampear] Invite Flood Detected! | echo 6 FLOOD PROTECTION: Received a Invite Flood  from $nick ( $+ $address $+ ) | unset %minvite $+ $nick | halt }
  282. n157=    inc %minvite $+ $nick 1  
  283. n158=  }
  284. n159=}
  285. n160=*@1:ON NICK:{
  286. n161=  if (( %nickf =  ON ) && ( $nick != $me )) {
  287. n162=    if ( %mnick [ $+ [ $address ] ] == $null) { set %mnick $+ $address 1 | .timer 1 4 unset %mnick $+ $address }
  288. n163=    if ( %mnick [ $+ [ $address ] ] > 2) { ban $chan $newnick 3 | set %nflood $banmask | kick $chan %nflood [Vampear] Nick Flood Detected! | unset %nflood | unset %mnick $+ $address | halt }
  289. n164=    inc %mnick $+ $address 1  
  290. n165=  }
  291. n166=}
  292. n167=*@1:ON TEXT:*:#:{
  293. n168=  if ( %textf = ON ) { 
  294. n169=    if ( %mtext [ $+ [ $nick ] ] == $null) { set %mtext $+ $nick 1 | .timer 1 3 unset %mtext $+ $nick }
  295. n170=    if ( %mtext [ $+ [ $nick ] ] > 8) { if ($level($nick) != 100 ) { kick $chan $nick [Vampear] Text Flood Detected! }  | unset %mtext $+ $nick | halt }
  296. n171=    inc %mtext $+ $nick 1  
  297. n172=  }
  298. n173=}
  299. n174=*@1:ON ACTION:*:#:{
  300. n175=  if ( %textf = ON ) { 
  301. n176=    if ( %mtext [ $+ [ $nick ] ] == $null) { set %mtext $+ $nick 1 | .timer 1 3 unset %mtext $+ $nick }
  302. n177=    if ( %mtext [ $+ [ $nick ] ] > 8) { kick $chan $nick [Vampear] Action Flood Detected! | unset %mtext $+ $nick | halt }
  303. n178=    inc %mtext $+ $nick 1  
  304. n179=  }
  305. n180=}
  306. n181=*@1:ON NOTICE:*:#:{
  307. n182=  if ( %textf = ON ) { 
  308. n183=    if ( %mtext [ $+ [ $nick ] ] == $null) { set %mtext $+ $nick 1 | .timer 1 3 unset %mtext $+ $nick }
  309. n184=    if ( %mtext [ $+ [ $nick ] ] > 8) { kick $chan $nick [Vampear] Notice Flood Detected! | unset %mtext $+ $nick | halt }
  310. n185=    inc %mtext $+ $nick 1  
  311. n186=  }
  312. n187=}
  313. n188=*1:ON TEXT:*:?:{
  314. n189=  if ( %savemsg = ON ) { write -l %path $+ text\msgs.txt ( $+ $fulldate $+ ) $nick $+ : $parms* | msg $nick I am not here...Tell me what you need...This is being logged...so leave a message. } 
  315. n190=  if ( %msgFlood = ON ) { 
  316. n191=    if ( %mmsg [ $+ [ $nick ] ] == $null) { set %mmsg $+ $nick 1 | .timer 1 3 unset %mmsg $+ $nick }
  317. n192=    if ( %mmsg [ $+ [ $nick ] ] > 8) { ignore -tnpu30 $nick 2 | echo 6 FLOOD PROTECTION: Received a Text Flood  from $nick ( $+ $address $+ ) | unset %mmsg $+ $nick | halt }
  318. n193=    inc %mmsg $+ $nick 1  
  319. n194=  }
  320. n195=}
  321. n196=*1:ON ACTION:*:?:{
  322. n197=  if ( %savemsg = ON ) { write -l %path $+ text\msgs.txt ( $+ $fulldate $+ ) $nick $+ : $parms* | msg $nick I am not here...Tell me what you need...This is being logged...so leave a message. } 
  323. n198=  if ( %msgFlood = ON ) { 
  324. n199=    if ( %mmsg [ $+ [ $nick ] ] == $null) { set %mmsg $+ $nick 1 | .timer 1 3 unset %mmsg $+ $nick }
  325. n200=    if ( %mmsg [ $+ [ $nick ] ] > 8) { ignore -tnpu30 $nick 2 | echo 6 FLOOD PROTECTION: Received a Action Flood  from $nick ( $+ $address $+ ) | unset %mmsg $+ $nick | halt }
  326. n201=    inc %mmsg $+ $nick 1  
  327. n202=  }
  328. n203=}
  329. n204=*1:ON NOTICE:*:?:{
  330. n205=  if ( %savenotice = ON ) { write -l %path $+ text\notices.txt ( $+ $fulldate $+ ) $nick $+ : $parms* | /notice $nick Sorry...Not here right now.Notice Saved. }
  331. n206=  if ( %msgFlood = ON ) { 
  332. n207=    if ( %mmsg [ $+ [ $nick ] ] == $null) { set %mmsg $+ $nick 1 | .timer 1 3 unset %mmsg $+ $nick }
  333. n208=    if ( %mmsg [ $+ [ $nick ] ] > 8) { ignore -tnpu30 $nick 2 | echo 6 FLOOD PROTECTION: Received a Notice Flood  from $nick ( $+ $address $+ ) | unset %mmsg $+ $nick | halt }
  334. n209=    inc %mmsg $+ $nick 1  
  335. n210=  }
  336. n211=}
  337. n212=1:ON FILESENT:*:/echo 6 -a Sending $nopath($filename) to $nick Complete!
  338. n213=1:ON FILERCVD:*:/echo 6 -a Received $nopath($filename) from $nick.
  339. n214=;PARTYLINE
  340. n215=1:ON CHATOPEN: { 
  341. n216=  %nick = $address($nick,1)
  342. n217=  if ($level(%nick) = 15) { 
  343. n218=    unset %chat | unset %i | unset %chatnum
  344. n219=    set %chatnum $chat(0)
  345. n220=    set %i 0
  346. n221=    :start
  347. n222=    inc %i
  348. n223=    if ( %i > %chatnum ) { halt }
  349. n224=    set %chat $chat(%i) | if ( %chat != $nick ) { msg = $+ %chat *** Linked to $nick }
  350. n225=    goto start
  351. n226=  }
  352. n227=  if (($level(%nick) >= 25) && ($level(%nick) <= 100)) { msg =$nick Enter your password. }
  353. n228=}
  354. n229=1:ON CHAT:*:{
  355. n230=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5))
  356. n231=  set %cpass $readini %path $+ clones\wpass.ini %tnick password
  357. n232=  set %text $parms*
  358. n233=  if ( %cpass != %text ) { msg =$nick Negative on that, Houston. | close -c $nick | halt }
  359. n234=  else {
  360. n235=    auser =2 $nick
  361. n236=    set %knote %path $+ notes\ $+ %tnick $+ .txt
  362. n237=    if ( $lof(%knote) = 0 || $exists(%knote) = $false ) { set %note 0 } | else { set %note 1 }
  363. n238=    msg =$nick Connected to $me, running %ver (c)1997 Warter
  364. n239=    play =$nick %path $+ text\motd.txt 0
  365. n240=    msg =$nick Commands start with '.' (like '.quit' or '.help')
  366. n241=    msg =$nick Everything else goes out to the party line.
  367. n242=    msg =$nick *** $nick joined the party line.
  368. n243=    if ( %note = 0 ) { msg =$nick You have no messages. }
  369. n244=    else { msg =$nick You have messages. }
  370. n245=    unset %chat | unset %i | unset %chatnum
  371. n246=    set %chatnum $chat(0)
  372. n247=    set %i 0
  373. n248=    :start
  374. n249=    inc %i
  375. n250=    if ( %i > %chatnum ) { halt }
  376. n251=    set %chat $chat(%i) | if ( %chat != $nick ) { msg = $+ %chat *** $nick joined the party line }
  377. n252=    goto start
  378. n253=  }
  379. n254=  unset %chat %i %chatnum
  380. n255=}
  381. n256=2:ON CHATOPEN:.ruser $nick | msg =$nick Enter your password. | close -i $nick
  382. n257=2:ON CHATCLOSE: { 
  383. n258=  %cnick = $address($nick,1)
  384. n259=  if ($level(%cnick) = 15) { 
  385. n260=    unset %cchat %ci %cchatnum
  386. n261=    set %cchatnum $chat(0)
  387. n262=    set %ci 0
  388. n263=    :bstart
  389. n264=    inc %ci
  390. n265=    if ( %ci > %cchatnum ) { halt }
  391. n266=    set %cchat $chat(%ci) | if ( %cchat != $nick ) { msg = $+ %cchat *** Lost Bot: $nick }
  392. n267=    goto bstart
  393. n268=  }
  394. n269=  .ruser $nick
  395. n270=  unset %cchat %ci %cchatnum
  396. n271=  set %cchatnum $chat(0)
  397. n272=  set %ci 0
  398. n273=  :start
  399. n274=  inc %ci
  400. n275=  if ( %ci > %cchatnum ) { halt }
  401. n276=  set %cchat $chat(%ci) | if ( %cchat != $nick ) { msg = $+ %cchat *** $nick left the party line. }
  402. n277=  goto start
  403. n278=  unset %cchat %ci %cchatnum
  404. n279=}
  405. n280=2:ON CHAT:.whom:{
  406. n281=  unset %chat %i %chatnum
  407. n282=  set %chatnum $chat(0)
  408. n283=  set %i 0
  409. n284=  msg =$nick Nick, Host
  410. n285=  msg =$nick -----------------------------
  411. n286=  :start
  412. n287=  inc %i
  413. n288=  if ( %i > %chatnum ) { halt }
  414. n289=  set %chat $chat(%i)
  415. n290=  set  %address $address( %chat, 1 )
  416. n291=  set %add $remove(%address,*!*)
  417. n292=  if ( %chat = $null ) { halt }
  418. n293=  if ( %add == $null ) { set %address $readini %path $+ clones\wpass.ini %chat hostmask | set %add $remove(%address,*!*) }
  419. n294=  msg =$nick %chat %add
  420. n295=  goto start
  421. n296=  unset %chat %i %chatnum
  422. n297=}
  423. n298=2:ON CHAT:.time:msg =$nick The current time is $time
  424. n299=2:ON CHAT:.date:msg =$nick $date
  425. n300=2:ON CHAT:.motd:play =$nick %path $+ text\motd.txt
  426. n301=2:ON CHAT:.me *:{
  427. n302=  unset %chat %i %chatnum
  428. n303=  set %chatnum $chat(0)
  429. n304=  set %i 0
  430. n305=  :start
  431. n306=  inc %i
  432. n307=  if ( %i > %chatnum ) { halt }
  433. n308=  set %chat $chat(%i) | 
  434. n309=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address(%chat,5))
  435. n310=  set %echo $readini %path $+ clones\wpass.ini %tnick echo
  436. n311=  if ( %echo = on ) { msg = $+ %chat * $nick $parm2* }
  437. n312=  if ( %echo = off && %chat != $nick ) { msg = $+ %chat * $nick $parm2* }
  438. n313=  goto start
  439. n314=  unset %chat %i %chatnum
  440. n315=}
  441. n316=2:ON CHAT:.seen *:{ 
  442. n317=  set %seen $read -s $+ $parm2 %path $+ \clones\seen.txt
  443. n318=  if ( $parm2 == $nick ) { msg =$nick Trying to find yourself, eh? | halt }
  444. n319=  if ( $parm2 == $me ) { msg =$nick Yeah, whenever I look in a mirror... | halt }
  445. n320=  if ([ $parm2 ] ison [ $chan ]) { msg =$nick $parm2 is on $chan right now! | halt }
  446. n321=  if ( %seen !== $null) { msg =$nick %seen }
  447. n322=}
  448. n323=2:ON CHAT:.notes read:set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5)) | play $nick $mircdir $+ notes\ $+ %tnick $+ .txt
  449. n324=2:ON CHAT:.notes erase:set %tnick $readini %path $+ clones\wpass.ini users $maddress($address($nick,5)) | write -c $mircdir $+ notes\ $+ %tnick $+ .txt | msg = $+ $nick Erased all notes.
  450. n325=2:ON CHAT:.note *:write $mircdir $+ notes\ $+ $parm3 $+ .txt $nick ( $+ $fulldate $+ ): $parm4* | msg = $+ $nick Stored message.
  451. n326=2:ON CHAT:.info*:pinfo
  452. n327=2:ON CHAT:.echo on:writeini %path $+ clones\wpass.ini $nick echo on
  453. n328=2:ON CHAT:.echo off:writeini %path $+ clones\wpass.ini $nick echo off
  454. n329=2:ON CHAT:.email*:pemail
  455. n330=2:ON CHAT:.newpass*:pnewpass
  456. n331=2:ON CHAT:.whois*:sflag | if ( %flag = o || %flag = m || %flag = g ) { whois } | else { msg =$nick What?  Try '.help' } | unset %flag
  457. n332=2:ON CHAT:.channel*:sflag | if ( %flag = o || %flag = m || %flag = g ) { channel } | else { msg =$nick What?  Try '.help' } | | unset %flag
  458. n333=2:ON CHAT:.op*:if ( $me isop $parm3 ) {  sflag | if ( %flag = o || %flag = m || %flag = g ) { mode $parm3 +o $parm2 } | else { msg =$nick What?  Try '.help' } | unset %flag }
  459. n334=2:ON CHAT:.topic*:sflag | if ( %flag = o || %flag = m || %flag = g ) { topic $parm2 $parm3* } | else { msg =$nick What?  Try '.help' } | unset %flag
  460. n335=2:ON CHAT:.invite*:if ( $me isop $parm3 ) { sflag | if ( %flag = o || %flag = m || %flag = g ) { invite $parm2 $parm3 } | else { msg =$nick What?  Try '.help' } | unset %flag }
  461. n336=2:ON CHAT:.resetbans*:if ( $me isop $parm2 ) { sflag | if ( %flag = o || %flag = m || %flag = g ) { set %cdban on | unset %unban %cbans | .mode $parm2 b  } | else { msg =$nick What?  Try '.help' } | unset %flag }
  462. n337=2:ON CHAT:.say*:if ( $me ison $parm2 ) { sflag | if ( %flag = m || %flag = g ) { msg $parm2 $parm3* } | else { msg =$nick What?  Try '.help' } | unset %flag }
  463. n338=2:ON CHAT:.act*:if ( $me ison $parm2 ) { sflag | if ( %flag = m || %flag = g ) { msg $parm2 * $me $parm3* } | else { msg =$nick What?  Try '.help' } | unset %flag }
  464. n339=2:ON CHAT:.msg*:sflag | if ( %flag = m || %flag = g ) { msg $parm2 $parm3* } | else { msg =$nick What?  Try '.help' } | unset %flag
  465. n340=2:ON CHAT:.deop*:if ( $parm2 !== $me && $me isop $parm3 ) { sflag | if ( %flag = m || %flag = g ) { mode $parm3 -o $parm2 } | else { msg =$nick What?  Try '.help' } | unset %flag }
  466. n341=2:ON CHAT:.kick*:if ( $parm2 !== $me && $me isop $parm3 ) { sflag | if ( %flag = m || %flag = g ) { kick $parm3 $parm2 $parm4* } | else { msg =$nick What?  Try '.help' } | unset %flag }
  467. n342=2:ON CHAT:.join*:sflag | if ( %flag = m || %flag = g ) { join $parm2* } | else { msg =$nick What?  Try '.help' } | unset %flag
  468. n343=2:ON CHAT:.status:sflag | if ( %flag = m || %flag = g ) { cstatus } | else { msg =$nick What?  Try '.help' } | unset %flag
  469. n344=2:ON CHAT:.leave*:sflag | if ( %flag = m || %flag = g ) { part $parm2 } | else { msg =$nick What?  Try '.help' } | unset %flag
  470. n345=2:ON CHAT:.ban*:if ( $parm2 !== $me && $me isop $parm3 ) { sflag | if ( %flag = m || %flag = g ) { ban $parm3 $parm2 3 } | else { msg =$nick What?  Try '.help' } | unset %flag }
  471. n346=2:ON CHAT:.bkick*:if ( $parm2 !== $me && $me isop $parm3 ) { sflag | if ( %flag = m || %flag = g ) { ban $parm3 $parm2 3 | kick $parm3 $parm2 $parm4* } | else { msg =$nick What?  Try '.help' } | unset %flag  }
  472. n347=2:ON CHAT:.jump*:sflag | if ( %flag = m || %flag = g ) { server $parm2 } | else { msg =$nick What?  Try '.help' } | unset %flag
  473. n348=2:ON CHAT:.chpass*:sflag | if ( %flag = m || %flag = g ) { chpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  474. n349=2:ON CHAT:.chinfo*:sflag | if ( %flag = m || %flag = g ) { chinfo } | else { msg =$nick What?  Try '.help' } | unset %flag
  475. n350=2:ON CHAT:.chemail*:sflag | if ( %flag = m || %flag = g ) { chemail } | else { msg =$nick What?  Try '.help' } | unset %flag
  476. n351=2:ON CHAT:.set*:sflag | if ( %flag = m || %flag = g ) { cset } | else { msg =$nick What?  Try '.help' } | unset %flag
  477. n352=2:ON CHAT:.unban*:if ( $me isop $parm3 ) { sflag | if ( %flag = m || %flag = g ) { mode $parm3 -b $parm2 } | else { msg =$nick What?  Try '.help' } | unset %flag }
  478. n353=2:ON CHAT:.addop*:sflag | if ( %flag = m || %flag = g ) { guser 50 $parm2 3 | set %pnick $parm2 | set %flag o | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  479. n354=2:ON CHAT:.addvoice*:sflag | if ( %flag = m || %flag = g ) { guser 40 $parm2 3 | set %pnick $parm2 | set %flag v | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  480. n355=2:ON CHAT:.addparty*:sflag | if ( %flag = m || %flag = g ) { guser 25 $parm2 3 | set %pnick $parm2 | set %flag p | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  481. n356=2:ON CHAT:.addbot*:sflag | if ( %flag = m || %flag = g ) { guser 15 $parm2 3 | set %pnick $parm2 | set %flag b | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  482. n357=2:ON CHAT:.addshit*:sflag | if ( %flag = m || %flag = g ) { guser 999 $parm2 3 | set %pnick $parm2 | set %flag s | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  483. n358=2:ON CHAT:.addeop*:sflag | if ( %flag = m || %flag = g ) { guser 888 $parm2 3 | set %pnick $parm2 | set %flag d | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  484. n359=2:ON CHAT:.remuser*:sflag | if ( %flag = m || %flag = g ) { ruser $parm2 3 | set %rhost $readini %path $+ clones\wpass.ini $parm2 hostmask | ruser %rhost } | else { msg =$nick What?  Try '.help' } | unset %flag %rhost
  485. n360=2:ON CHAT:.addmaster*:sflag | if ( %flag = g ) { guser 75 $parm2 3 | set %pnick $parm2 | set %flag m | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  486. n361=2:ON CHAT:.addgod*:sflag | if ( %flag = g ) { guser 100 $parm2 3 | set %pnick $parm2 | set %flag g | addpass } | else { msg =$nick What?  Try '.help' } | unset %flag
  487. n362=2:ON CHAT:.link*: {
  488. n363=  unset %flag | sflag
  489. n364=  if ( %flag = m || %flag = g ) {
  490. n365=    if ( $parm2 = $me ) { halt }
  491. n366=    if ( $parm2 != $null ) { 
  492. n367=      %nick = $address($parm2,1)
  493. n368=      if ($level(%nick) = 15) { 
  494. n369=        msg =$nick *** Linking to $parm2 ... 
  495. n370=      dcc chat $parm2  }
  496. n371=      else { msg =$nick $parm2 is not a bot. }
  497. n372=    }
  498. n373=  }
  499. n374=  else { msg =$nick What?  Try '.help' }
  500. n375=  unset %flag
  501. n376=}
  502. n377=2:ON CHAT:.unlink*: { 
  503. n378=  unset %flag | sflag
  504. n379=  if ( %flag = m || %flag = g ) {
  505. n380=    if ( $parm2 = $me ) { halt }
  506. n381=    if ( $parm2 != $null ) { 
  507. n382=      close -c $parm2 | .ruser $parm2
  508. n383=      unset %chat | unset %i | unset %chatnum
  509. n384=      set %chatnum $chat(0)
  510. n385=      set %i 0
  511. n386=      :start
  512. n387=      inc %i
  513. n388=      if ( %i > %chatnum ) { halt }
  514. n389=      set %chat $chat(%i) | msg = $+ %chat *** Unlinked from: $parm2
  515. n390=      goto start
  516. n391=    }
  517. n392=  }
  518. n393=  unset %flag
  519. n394=  else { msg =$nick What?  Try '.help' }
  520. n395=}
  521. n396=2:ON CHAT:.boot*:{
  522. n397=  unset %flag | sflag
  523. n398=  if ( %flag = m || %flag = g ) { 
  524. n399=    if ( $parm2 = $me ) { halt | unset %flag }
  525. n400=    %nick = $address($parm2,1)
  526. n401=    if ($level(%nick) = 15) { msg =$nick $parm2 is a bot. | halt }
  527. n402=    if ( $parm2 != $null ) {
  528. n403=      close -c $parm2 | .ruser $parm2
  529. n404=      unset %chat | unset %i | unset %chatnum
  530. n405=      set %chatnum $chat(0)
  531. n406=      set %i 0
  532. n407=      :start
  533. n408=      inc %i
  534. n409=      if ( %i > %chatnum ) { halt }
  535. n410=      set %chat $chat(%i) | msg = $+ %chat *** $nick booted $parm2 from the party line.
  536. n411=      goto start
  537. n412=    }
  538. n413=  }
  539. n414=  else { msg =$nick What?  Try '.help' }
  540. n415=  unset %flag
  541. n416=}
  542. n417=2:ON CHAT:.quit:{
  543. n418=  msg =$nick *** Ja mata!
  544. n419=  msg =$nick *** $nick left the party line.
  545. n420=  close -c $nick | .ruser $nick
  546. n421=  unset %chat %i %chatnum
  547. n422=  set %chatnum $chat(0)
  548. n423=  set %i 0
  549. n424=  :start
  550. n425=  inc %i
  551. n426=  if ( %i > %chatnum ) { halt }
  552. n427=  set %chat $chat(%i) | msg = $+ %chat *** $nick left the party line.
  553. n428=  goto start
  554. n429=}
  555. n430=2:ON CHAT:.die*:sflag | if ( %flag = g ) { quit $parm2* | exit } |  else { msg =$nick What?  Try '.help' } | unset %flag
  556. n431=2:ON CHAT:.do*:sflag | if ( %flag = g ) { $parm2* } |  else { msg =$nick What?  Try '.help' } | unset %flag
  557. n432=2:ON CHAT:,*:{
  558. n433=  unset %flag | sflag
  559. n434=  if ( %flag = m || %flag = g ) {
  560. n435=    unset %chat %i %chatnum %flag
  561. n436=    set %chatnum $chat(0)
  562. n437=    set %i 0
  563. n438=    set %len $len($parms*)
  564. n439=    %wlen = %len - 1
  565. n440=    set %wtext $right(%wlen,$parms*)
  566. n441=    :start
  567. n442=    inc %i
  568. n443=    if ( %i > %chatnum ) { halt }
  569. n444=    set %chat $chat(%i)
  570. n445=    set %tnick $readini %path $+ clones\wpass.ini users $maddress($address(%chat,5))
  571. n446=    set %flag $readini %path $+ clones\wpass.ini %tnick flag
  572. n447=    set %echo $readini %path $+ clones\wpass.ini %tnick echo
  573. n448=    if ( %echo = on && %flag = m ) { msg = $+ %chat - $+ $nick $+ - %wtext }
  574. n449=    if ( %echo = on && %flag = g ) { msg = $+ %chat - $+ $nick $+ - %wtext }
  575. n450=    if ( %echo = off && %chat != $nick && %flag = m ) { msg = $+ %chat - $+ $nick $+ - %wtext }
  576. n451=    if ( %echo = off && %chat != $nick && %flag = g ) { msg = $+ %chat - $+ $nick $+ - %wtext }
  577. n452=    unset %flag 
  578. n453=    goto start
  579. n454=  }
  580. n455=  unset %chat %i %chatnum %flag
  581. n456=}
  582. n457=2:ON CHAT:.help*: { 
  583. n458=  fhelp | if ( $parm2 != $null ) { 
  584. n459=    if ( $parm3 != $null && $parm2 = set ) { play -t $+ $parm3 =$nick $mircdir $+ clones\help.bot 0 | halt }
  585. n460=    else { play -t $+ $parm2 =$nick $mircdir $+ clones\help.bot 0 | halt }
  586. n461=  }
  587. n462=  if ( %fhelp != $null ) { msg =$nick DCC COMMANDS for $me, %ver $+ : | play -t $+ %fhelp =$nick $mircdir $+ clones\help.bot 0 | unset %fhelp }
  588. n463=  else  { msg =$nick DCC COMMANDS for $me, %ver $+ : | play -tpparty =$nick $mircdir $+ clones\help.bot 0 | unset %fhelp }
  589. n464=}
  590. n465=2:ON CHAT:.*:msg =$nick What?  Try '.help'
  591. n466=2:ON CHAT:*:{ 
  592. n467=  unset %chat | unset %i | unset %chatnum
  593. n468=  set %chatnum $chat(0)
  594. n469=  set %i 0
  595. n470=  :start
  596. n471=  inc %i
  597. n472=  if ( %i > %chatnum ) { halt }
  598. n473=  set %chat $chat(%i) | 
  599. n474=  set %tnick $readini %path $+ clones\wpass.ini users $maddress($address(%chat,5))
  600. n475=  set %echo $readini %path $+ clones\wpass.ini %tnick echo
  601. n476=  if ( %echo = on ) { msg = $+ %chat < $+ $nick $+ > $parms* }
  602. n477=  if ( %echo = off && %chat != $nick ) { msg = $+ %chat < $+ $nick $+ > $parms* }
  603. n478=  goto start
  604. n479=  unset %chat %i %chatnum
  605. n480=}
  606.  
  607. [Raw]
  608. n0=367: * {
  609. n1=if (%cdban == ON) { 
  610. n2=set %unban [ %unban ] $parm3
  611. n3=inc %cban
  612. n4=if (%cban == 3) {
  613. n5=mode $parm2 -bbb %unban
  614. n6=unset %unban %cban
  615. n7=}
  616. n8=halt
  617. n9=}
  618. n10=}
  619. n11=368: * { 
  620. n12=if (%unban != $null) { mode $parm2 -bbb %unban | unset %unban %cban | set %cdban off }
  621. n13=}
  622.